home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / UTIL / TouchMe 1.1.1.sit / touchMe 1.11 Folder / scripts / sample 3 < prev    next >
Text File  |  1996-08-08  |  713b  |  22 lines
  1. -- Sample AppleScripts for touchMe, 1996 (C) Mizutori Tetsuya
  2. -- An applet to change the date time stamp of the given folder
  3. -- and all the items in the folder have the same stamp to the folder.
  4. -- Let's start to select a target folder!
  5.  
  6. set theFolder to (choose folder)
  7.  
  8. set docList to {}
  9. repeat with theItem in the list folder theFolder
  10.     copy docList & (alias ((theFolder as string) & theItem)) to docList
  11. end repeat
  12.  
  13. -- Once again 'theFolder' after the operations on items in the folder have finished.
  14. -- This is because the stamp of the folder may be updated if some items in it have changed.
  15. copy theFolder & docList & theFolder to docList
  16.  
  17. tell application "touchMe"
  18.     activate
  19.     touch docList
  20.     quit
  21. end tell
  22.